home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / objary.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  3KB  |  144 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 18 "objary.d"
  17. #include "array1.h" 
  18.  
  19. #define    CLASS    ObjectArray_c
  20. #define    ivType    ObjectArray_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    ObjectArray_c;
  25.  
  26.  
  27. #line 27 "objary.d"
  28. #define TYPE object 
  29.  
  30.  
  31. static gIndex_t _index; 
  32.  
  33.  
  34. cvmeth objrtn ObjectArray_cvm_vNew(object self, va_list _rest_)
  35. { 
  36.     unsigned rank = va_arg(_rest_, unsigned);
  37.  
  38. #line 35 "objary.d"
  39.     static gNewArray_t cnew = NULL; 
  40.     MAKE_REST(rank); 
  41.  
  42.     if (!cnew) 
  43.         cnew = cmcPointer(Array, gNewArray); 
  44.     return cnew(self, AT_OBJ, rank, _rest_); 
  45. } 
  46.  
  47. #line 48 "objary.c"
  48.  
  49. static    objrtn    ObjectArray_cfm_vNew(object self, ...)
  50. {
  51.     va_list    _rest_;
  52.     va_start(_rest_, self);
  53.     return ObjectArray_cvm_vNew(self, _rest_);
  54. }
  55.  
  56.  
  57.  
  58. #line 43 "objary.d"
  59. ivmeth objrtn ObjectArray_ivm_vValue(object self, va_list _rest_)
  60. { 
  61.     MAKE_REST(self); 
  62.     return *((TYPE *) _index(self, _rest_)); 
  63. } 
  64.  
  65. #line 66 "objary.c"
  66.  
  67. static    objrtn    ObjectArray_ifm_vValue(object self, ...)
  68. {
  69.     va_list    _rest_;
  70.     va_start(_rest_, self);
  71.     return ObjectArray_ivm_vValue(self, _rest_);
  72. }
  73.  
  74.  
  75.  
  76. #line 49 "objary.d"
  77. ivmeth objrtn ObjectArray_ivm_vChangeValue(object self, va_list _rest_)
  78. { object val = va_arg(_rest_, object);
  79.     MAKE_REST(val); 
  80.     ChkArgNul(val, 2); 
  81.     *((TYPE *) _index(self, _rest_)) = val; 
  82.     return self; 
  83. } 
  84.  
  85. #line 86 "objary.c"
  86.  
  87. static    objrtn    ObjectArray_ifm_vChangeValue(object self, ...)
  88. {
  89.     va_list    _rest_;
  90.     va_start(_rest_, self);
  91.     return ObjectArray_ivm_vChangeValue(self, _rest_);
  92. }
  93.  
  94.  
  95. #line 57 "objary.d"
  96. static void init_class(void) 
  97. { 
  98.     _index = imcPointer(Array, gIndex); 
  99. } 
  100.  
  101. #line 102 "objary.c"
  102.  
  103. objrtn    ObjectArray_initialize(void)
  104. {
  105.     static  CRITICALSECTION  cs;
  106.     static  int volatile once = 0;
  107.  
  108.     ENTERCRITICALSECTION(_CI_CS_);
  109.     if (!once) {
  110.         INITIALIZECRITICALSECTION(cs);
  111.         once = 1;
  112.     }
  113.     LEAVECRITICALSECTION(_CI_CS_);
  114.  
  115.     ENTERCRITICALSECTION(cs);
  116.  
  117.     if (ObjectArray_c) {
  118.         LEAVECRITICALSECTION(cs);
  119.         return ObjectArray_c;
  120.     }
  121.     INHIBIT_THREADER;
  122.     Array_initialize();
  123.     if (ObjectArray_c)  {
  124.         ENABLE_THREADER;
  125.         LEAVECRITICALSECTION(cs);
  126.         return ObjectArray_c;
  127.     }
  128.     ObjectArray_c = gNewClass(Class, "ObjectArray", 0, 0, Array, END);
  129.     cvMethodFor(ObjectArray, vNew, ObjectArray_cvm_vNew, ObjectArray_cfm_vNew);
  130.     ivMethodFor(ObjectArray, vValue, ObjectArray_ivm_vValue, ObjectArray_ifm_vValue);
  131.     ivMethodFor(ObjectArray, vChangeValue, ObjectArray_ivm_vChangeValue, ObjectArray_ifm_vChangeValue);
  132.  
  133.     init_class();
  134.  
  135.     ENABLE_THREADER;
  136.  
  137.     LEAVECRITICALSECTION(cs);
  138.  
  139.     return ObjectArray_c;
  140. }
  141.  
  142.  
  143.  
  144.